home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_15_1987_Transactor_Publishing.d64
/
disk swap
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
330b
|
11 lines
2000 print"please change disks."
2010 open 15,8,15
2020 gosub 3000: if a<>0 then 2020 :rem wait for disk to be removed
2030 gosub 3000: if a<>16 then 2030 :rem wait for no disk in drive
2040 gosub 3000: if a<>0 then 2040 :rem wait for disk to be inserted
2050 for d = 1 to 1500: next: close 15
2060 print"ok, thanks!"
2070 end
2080 :
3000 print#15,"m-r";chr$(0)chr$(28)chr$(1):get#15,a$:a=asc(a$)and16:return